home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
ob2s.src
< prev
next >
Wrap
Text File
|
1990-05-25
|
322b
|
12 lines
%%HP: T(3)A(D)F(.);
\<< \->STR DUP
IF "'" POS 1 ==
THEN DUP SIZE 1 - 2 SWAP SUB
END
\>>
@ OB->S (OBject-to-String) by Joseph K. Horn
@ Same as native ->STR function, except for names & algebraics,
@ which get their leading & trailing single-quotes removed.
@ Thus 'FRED' turns into "FRED", not "'FRED'".